
(map 
 promise? 
 (list (delay #f) #t))			; => (#t #f)

